home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue39 / slimmer / D2B.LOG < prev    next >
Encoding:
Text File  |  1998-09-09  |  1.7 KB  |  46 lines
  1.  
  2. In D2, if there are global longstring references,
  3. there will be an empty try..finally in the init section.
  4. Not so good.... There is no clean up in the finalization
  5. section, so there will be a single global leak.
  6. No big deal, really!
  7.  
  8. TestInit: initialization
  9. :0041F4CC 55             push   ebp
  10. :0041F4CD 8BEC           mov    ebp,esp
  11. :0041F4CF 53             push   ebx
  12. :0041F4D0 56             push   esi
  13. :0041F4D1 57             push   edi
  14. :0041F4D2 33C0           xor    eax,eax
  15. :0041F4D4 55             push   ebp
  16. :0041F4D5 680CF54100     push   0041F50C
  17. :0041F4DA 64FF30         push   fs:dword ptr [eax]
  18. :0041F4DD 648920         mov    fs:[eax],esp
  19. :0041F4E0 B8B0054200     mov    eax,004205B0
  20. :0041F4E5 E8BE46FEFF     call   @AddExitProc
  21. testinit.25:  AutoGlobalP := pointer(longint(@UnitGlobal) +
  22. :0041F4EA B860164200     mov    eax,00421660
  23. :0041F4EF 83C004         add    eax,00000004
  24. :0041F4F2 A35C164200     mov    [0042165C],eax
  25. testinit.26:  UnitGlobal := 0;
  26. :0041F4F7 33C0           xor    eax,eax
  27. :0041F4F9 A360164200     mov    [00421660],eax
  28. :0041F4FE 33C0           xor    eax,eax
  29. :0041F500 5A             pop    edx
  30. :0041F501 59             pop    ecx
  31. :0041F502 59             pop    ecx
  32. :0041F503 648910         mov    fs:[eax],edx
  33. :0041F506 6813F54100     push   0041F513
  34. testinit.28: finalization
  35. :0041F50B C3             ret
  36. :0041F50C E97B39FEFF     jmp    @HandleFinally
  37. :0041F511 EBF8           jmp    testinit.28 (0041F50B)
  38. testinit.28: finalization
  39. :0041F513 5F             pop    edi
  40. :0041F514 5E             pop    esi
  41. :0041F515 5B             pop    ebx
  42. :0041F516 5D             pop    ebp
  43. :0041F517 C3             ret
  44.  
  45.  
  46.